1 GOTO910 2 REM ** ML STOP KEY DISABLE ** 3 PRINT"x[169]=[141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 4 [153]"xhhh+hNOThhhhhhhPRINT#HRUNHX`111" 5 [153]"hhhhhhh`1" 6 [143] ** 4 - POP ML SUBROUTINE ** 10 [143] **GENERAL INPUT ROUTINE ** 15 : 20 [143] ** TO OUR BEST KNOWLEDGE THIS 21 [143] PROGRAM IS FREE FOR 22 [143] DUPLICATION IN CANADA. 23 [143] IF YOU HAVE CONTARY 24 [143] INFORMATION, PLEASE 25 [143] CONTACT COMMODORE CANADA AND 26 [143] EVERY EFFORT WILL BE MADE TO 27 [143] WITHDRAW COPIES OF THIS 28 [143] PROGRAM. 30 : 35 [143] +++ INPUT SECTION +++ 40 [151]UO,0:UR$[178]"":UI$[178]"" 42 [139]UL[178]0[167]UL[178]80 45 [153]" CMDCMD";:[151]UC,0 50 [161]UI$:[139]UI$[178]""[167]50 55 [139]UI$[178][199](13)[175][195](UR$)[177][178]1[167][151]UC,1:[153]" CMD";:[137]85 60 [139]UI$[178][199](20)[167]105 62 [139] [195](UR$)[178][177]UL[167]50 65 [141]120:[143] CHECK FOR VALID CHARACTER 70 UR$[178]UR$[170]UI$ 75 [153]UI$; 80 [137]50 85 [143] +++ CHECK FOR HELP REQUEST +++ 90 [139]UR$[178]UX$[167]195:[143] EXIT TO HELP ROUTINE 95 [139]UF[178]1[167][141]240 100 UF[178]0:[153]:[142] 102 [143] ++ CHECK DELETE ++ 105 [139][195](UR$)[179]1[167]50 110 UR$[178][200](UR$,[195](UR$)[171]1) 115 [153]"CMD CMDCMD";:[137]50 120 [143] ++ CHECK FOR VALID CHARACTERS ++ 125 [139][195](US$)[178]0[167]150 127 US$[178]US$[170]UX$ 130 [129]US[178]1[164][195](US$) 135 [139]UI$[178][202](US$,US,1)[167][142] 140 [130] 145 UI$[178]"":[142] 150 [143] ** STANDARD INPUT ** 152 [139][198](UI$)[178]46[167][142] 155 [139]UI$[178][199](32)[167][142] 160 [139][198](UI$)[179]48[176][198](UI$)[177]57[167]170 165 [142] 170 [139][198](UI$)[179]65[176][198](UI$)[177]90[167]180 175 [142] 180 [139][198](UI$)[179]193[176][198](UI$)[177]218[167]UI$[178]"":[142] 185 [139][194](UT)[178]UU%[167]UI$[178][199]([198](UI$)[171]128):[142] 187 [142] 190 UI$[178]"":[142] 195 UF[178]1:[143] +++ HELP ROUTINE EXIT +++ 197 [141]250 200 [141]245 205 [129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]2) 210 UQ%(UQ[171]UB)[178][194](UQ):[130]:[153]"LOAD" 215 UZ[178]1:UV%[178][194](UT) 216 [137]300 217 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UP[178]UJ:UL[178]UK 218 [139][194](50003)[178]0[167][151]53281,1:[153]"LOAD";:[151]53281,6:[151]53280,14:[137]220 219 [153]"LOAD"; 220 UT$[178]UL$:[151]UT,UV%:[129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]3) 225 [151]UQ,UQ%(UQ[171]UB):[130] 230 [151]U1,U1% 232 [151]U2,U2% 233 [151]U4,U4% 234 [151]U3,U3%[171]1 235 [137]35 240 UD%[178]((U2%[172]256[170]U1%[170]U3%)[171]UB)[173]40:[153][200](UD$,UD%[170]1):[142] 245 [153][200](UD$,24);"  HELP COMING WAIT ":[142] 250 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4) 251 UJ$[178]US$:UK$[178]UG$:UL$[178]UT$:UJ[178]UP:UK[178]UL 255 [142] 300 [143] ** MENU ** 301 : 302 [153]"LOAD":[151]UT,UU%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,8 303 : 305 [153]" MENU" 310 [153]" --------------------------------------" 315 [153]" 1. BEGIN A F O " 320 [153]" 2. STUDENT INSTRUCTIONS" 325 [153]" 3. TEACHER INSTRUCTIONS" 330 [153]" 4. MODIFICATION OF PROGRAM" 335 [153]" 5. QUIT" 340 [153]" --------------------------------------" 345 [153]" PRESS A NUMBER KEY (1-5) "; 350 UL[178]1:US$[178]"12345":[141]35:[143] INPUT ROUTINE 351 [139][195](UR$)[177]1[167]300 352 US$[178]"" 353 [153][200](UD$,23);" ONE MOMENT PLEASE " 355 [145][197](UR$)[141]1000,400,500,600,396 360 [137]300 395 [143] ** RE-ENABLE STOP KEY AND END ** 396 [139][194](50003)[179][177]1[175][194](50003)[179][177]160[175][194](50003)[179][177]0[167]399 397 [158]UU[170]71:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14 398 [153]"CONTLOAD":[128] 399 [141]875:[142] 400 [143] ** STUDENT INSTRUCTIONS ** 405 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,0:[151]53280,0 410 UP[178]0:UG$[178]"(null)TUDENT RIGHT$NST":[141]850 455 [141]1070 460 UIP[178]UP[170]1:[141]850 475 [153]" RIGHT$F AT ANY TIME YOU WISH TO RETURN" 480 [153]" TO THE (null)VAL(null)(null) PRESS THE LEFT$WAIT KEY." 485 [141]835 490 [139]UZ[178]1[167][158]UP%:[137]217 499 [142] 500 [143] ** TEACHER INSTRUCTIONS ** 501 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,2:[151]53280,10 502 UP[178]0:UG$[178]"(null)EACHER RIGHT$NST":[141]850 503 [153]" (null)O THE BEST OF OUR KNOWLEDGE," 504 [153]" THIS PROGRAM IS IN THE PUBLIC" 505 [153]" DOMAIN. RIGHT$F THIS IS NOT THE CASE" 506 [153]" PLEASE CONTACT:" 507 [153]" LENOMMODORE PEEKUSINESS (null)ACHINES" 508 [153]" 3370 (null)HARMACY ATNVE. 509 PRINT" [193]GINCOURT, [207]NTARIO" 510 PRINT" [195]ANADA [205]1[215] 2[203]4" 511 PRINT" (416) 499-4292" 512 UP=1:GOSUB 835:GOSUB 850: 513 PRINT" [208]ROGRAM [206]AME: [193] [198] [207]  514 [153]" (null)RITTEN PEEKY : (null)NKNOWN 515 PRINT" [213]PGRADED [194]Y : [202]OHN [199]OSSLING 516 [153]" (null)HIS PROGRAM WILL RUN ON ANY 519 PRINT" [208][197][212] 64 [195][207][205][208][213][212][197][210] 520 [153]" LEN(null)(null)(null)(null)STR$(null)(null)VAL 64 LEN(null)(null)(null)(null)(null)VAL(null) 580 GOSUB835 590 IFUZ=1THENSYSUP%:GOTO217 599 RETURN 600 REM ** PROGRAM MODIFICATION INST ** 601 PRINT"[147]":POKEUT,UL% 605 UP=0:UG$="[208]ROGRAM [205]OD":GOSUB850 610 PRINT" [212]O CHANGE THE NUMBER OF BALLOONS" 615 PRINT" EACH PLAYER RECEIVES, CHANGE THE " 620 PRINT" VALUE OF [194][193][146] IN LINE 1360 TO ANY " 625 PRINT" DESIRED NUMBER BETWEEN 1 AND 99." 630 PRINT" [197]XAMPLE:" 640 PRINT" 1360 [194][193]=15" 660 GOSUB835 690 IFUZ=1THENSYSUP%:GOTO217 699 RETURN 700 REM ** TO USE 8032 LOAD CBM4032 ** 710 PRINT"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032  720 [153]" LOAD THE 'CBM 4032' PROGRAM" 730 [158]UU[170]71 740 [128] 797 [143] ** TO USE 8032 LOAD CBM4032 ** 798 [153]"LOADBEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM" 799 [158]1093:[128] 800 [143] ** T I T L E P A G E ** 802 [153]"LOAD";:[151]UT,UU%:[139][194](50003)[178]0[167][151]53280,14:[151]53281,6 804 [129]I[178]1[164]38:[153]"SPC(WAIT";:[130] 806 [129]I[178]1[164]22:[153]"CMDSPC(WAIT";:[130] 808 [129]I[178]1[164]37:[153]"CMDCMDSPC(WAIT";:[130] 810 [129]I[178]1[164]22:[153]"ONCMDSPC(WAIT";:[130] 812 [153]"STEP WAIT 814 PRINT" [146]  [146][169] 816 [153]" WAIT TAB((null) 818 PRINT"[223] [146] 820 [153]"C O M M O D O R E 822 PRINT"EDUCATIONAL 824 [153]"SOFTWARE 826 REM ** COMMODORE LOGO ** 827 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]":I=0 828 GETA$:IFA$<>" "THENI=I+1:IFI<250THEN828 830 T1$="":T2$="":T3$="":T4$="":I=0 832 GOTO300 835 REM ** SPACE BAR PRESS ** 840 POKEUO,0:PRINTLEFT$(UD$,24);"PRESS SPACE BAR TO CONTINUE[146]" 844 GETUI$:IFUI$<>" "THEN844 846 RETURN 850 REM ** PAGE DESIGN ROUTINE ** 852 UP=UP+1 855 PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18) 860 PRINT" --------------------------------------" 864 IFUH<>0THEN870 865 PRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS H " 870 UH=0:PRINT"":RETURN 875 REM ** PLEASE WAIT REMARK ** 880 PRINTLEFT$(UD$,24);" ONE MOMENT PLEASE... " 885 RETURN 900 REM ** SET UP VARIABLES ** 901 UX$="H":DIMUQ%(1000):UB=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UU=1024 902 UT=59468:UU%=12:UL%=14:UP%=1146:UM=32768:UO=158:POKE 50003,0 903 IFPEEK(50003)=0THENUB=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UU=2048 904 IFPEEK(50003)=0THENUT=53272:UU%=21:UL%=23:UP%=2139:UM=1024:UO=198 905 UD$="" 906 UP$=" " 907 UT$=" [193] [198] [207] [160][160][160][160][160]":REM PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** 908 RETURN 910 REM ** SET VARIABLES ** 915 GOSUB900 916 : 917 : 920 REM ** CHECK FOR 8032 ** 925 PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE 930 IFPEEK(UB+40)<>96THENGOSUB700 931 REM ** MEMORY CHECK ** 932 IF FRE(0)>2000THEN937 933 PRINT"[147]THIS MACHINE DOES NOT HAVE ENOUGH" 934 PRINT"MEMORY TO RUN THIS PROGRAM !" 935 SYSUU+71 936 END 937 PRINT"[147]":IFPEEK(50003)=0THEN962 940 REM ** BASIC 2.0 OR 4.0 OR C-64 SETUP ** 941 POKE1075,133:POKE1076,144:POKE1077,234:POKE1079,4:POKE1080,133:POKE1081,145 942 POKE1091,155:POKE1098,133:POKE1099,144:POKE1100,234:POKE1103,133 943 POKE1104,145:POKE1105,234:POKE1082,234 945 IFPEEK(50003)<>160THEN955 950 POKE1093,88:POKE1094,228:POKE1097,85:POKE1102,228:GOTO965 955 IFPEEK(50003)<>1THEN990 960 POKE1093,49:POKE1094,230:POKE1097,46:POKE1102,230:GOTO965 962 POKE2099,141:POKE2100,20:POKE2101,3:POKE2103,8:POKE2104,141:POKE2105,21 963 POKE2106,3:POKE2115,145:POKE2117,52:POKE2118,234:POKE2121,49:POKE2122,141 964 POKE2123,20:POKE2124,3:POKE2126,234:POKE2127,141:POKE2128,21:POKE2129,3 965 SYSUU+48:REM DISABLE STOP KEY 970 GOSUB800:REM TITLE 980 GOTO300:REM MENU 990 PRINT"[147]THE PGM WILL NOT WORK ON THIS MACHINE!":END 1000 IFUZ=1THENSYSUP%:SYSUP%:UZ=0:REM ** PROGRAM STARTS HERE ** 1001 PRINT"[147]";:RESTORE:IFPEEK(50003)=0THENPOKE53281,6:POKE53280,6 1010 REM ### SOUND ADDED BY STEVE DOUGLAS 1020 REM ### POKE59467,0 AFTER BREAKING PROGRAMME 1030 POKEUM+26699,16:POKEUM+26698,15:P=UM+26696 1040 POKEP,0 1050 IFPEEK(50003)<>160THENPOKE59458,62 1055 GOTO1180 1060 PRINT"[147]":POKE59468,14 1070 PRINT" [212]HIS PROGRAM COMES FROM [202]APAN. " 1080 PRINT" [212]HE TRANSLATION OF [202]APANESE WORDS IS UP" 1090 PRINT" TO THE USER." 1100 PRINT" [212]HE OBJECT IS TO HIT THE [193][198][207] WITH A" 1110 PRINT" BALLOON. [212]HE HIT MUST BE DEAD CENTER." 1115 PRINT" [195]ONTROL [203]EYS" 1120 PRINT" 4[146] ---- [205]OVE [204]EFT" 1125 PRINT" 5[146] ---- [198]IRE! 1130 [153]" 6WAIT ---- (null)OVE (null)IGHT 1160 GOSUB835:RETURN 1170 GETA$:IFA$<>"C"THEN1170 1180 FORT=1TO5:POKEP,200:NEXTT:POKEP,0 1190 POKE59468,12 1200 A$(1)="[157][157] [213][177][201] [157][157][157][157][157] [194]1[146][200] [157][157][157][157][157][157] [169]AFO[223][146] [157][157][157][157][157][157][157] [202][203] [202][203] " 1210 P$="[215][157][157][157][209] [221][157][157][157][157][176] [146][192][219][157][157][157][157][221] [146][157][165][165][157][157][165][165]" 1220 O$=" [157][157][157] [157][157][157][157] [157][157][157][157] [157] [157][157] " 1230 E$="[157] [157][157][157] [157][157][157][157] [157][157][157][157][157] " 1240 B$="[209][157][221][157][221][157]" 1250 C$=" [157] [157] [157]" 1260 X$="[157]*[157]*[157][157][157]*[157]*[157][157][157][157]*[157]*[157]*[157][157][157][157]**" 1270 V$="" 1280 W$=V$+"" 1290 U$="[145][157][205] [206][157][157]O[157][157][176][166][174][157][157][214]" 1300 UE$="[145][157] [157][157] [157][157] [157][157] " 1310 WM$="[209][157][157][176] [146][174][157][157][157][221] [146][221][157][157][205][157][157][206] [205]" 1320 WN$="[209][157][157][176] [146][174][157][157][157][221] [146][221][157][157][206][157][157][206] [205]" 1330 VR$="[209][157][157][176] [146][174][157][157][157][221] [146][221][157][157][165][165][157][157][157][206] [165]" 1340 WE$=" [157][157] [157][157][157] [157][157] [157][157][157] " 1350 VL$="[209][157][157][176] [146][174][157][157][157][221] [146][221][157][157][165][165][157][157][165][205]" 1360 BA=20 1365 IFBA>99THENBA=20 1366 IFBA<1THENBA=20 1367 BA=INT(BA) 1370 SC=0 1380 GOSUB2910 1390 GOSUB3120 1400 TI$="000000" 1410 AN=1 1420 EX=0 1430 AF=10+INT(RND(1)*20) 1440 PE=10+INT(RND(1)*30) 1450 PRINT"[147]" 1451 PRINTLEFT$(UD$,25)TAB(11)" HELP - PRESS [146]H [146]"; 1460 PRINTV$TAB(PE)P$ 1470 PF=PE 1480 PRINTW$" " 1490 LO=INT(RND(1)*3)-1:AF=ABS(AF+LO) 1500 IF AF>35THENAF=35 1510 PRINT""SPC(AF)A$(1) 1520 IFAF<2THENAF=2 1530 IFRND(1)4ANDC<>6ANDC<>5THEN2650 1560 IFC=5 THEN2020 1570 PE=PE+(C=4)*4+2 1580 IFPE<5THENPE=5:GOTO1600 1590 IF PE>39THENPE=39 1600 PRINT V$SPC(PF)O$ 1610 PRINT V$SPC(PE)P$ 1620 GOTO2650 1630 POKEP,15 1640 PRINTLEFT$(W$,5)SPC(AF)"[221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221]" 1650 PRINTLEFT$(W$,5)SPC(AF)" [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] " 1660 POKEP,0 1670 IF AF<>PETHEN1540 1680 POKEP,50 1690 TF$=TI$ 1700 PRINTV$SPC(PE-2)X$ 1710 FOR L1=1TO200:NEXT 1720 POKEP,0 1730 PRINTV$SPC(PE)O$ 1740 PRINTLEFT$(W$,23)SPC(PE-2)"[215] [146][192][174][145][157][157][157][157][157][157][157][205]MUGYU![206]"; 1750 POKEP,250 1760 FORL1=1TO400:NEXT 1770 POKEP,0 1780 FORL1=1TO400:NEXT 1790 SC=SC-1 1800 PRINT"[157][157][157][157][157][157][157][157] " 1810 PRINT""SPC(AF-2)"[202][203] [202][203]" 1820 L1=150:FORL=5TO22:PRINTLEFT$(W$,L)SPC(AF-2)" ":L1=L1+5:POKEP,L1 1830 FORT=1TO30:NEXTT,L 1840 FORL1=1TO5:POKEP,100+L1:NEXTL1:POKEP,0 1850 PRINTLEFT$(W$,23)SPC(AF-2)"[215][146] [192][174]" 1860 FORL1=1TO500:NEXT:L1=190 1870 FORL=22TO5STEP-1:PRINTLEFT$(W$,L)SPC(AF-2)"[215][146] [192][174][157][157][157][157][157] " 1880 L1=L1-5:POKEP,L1:FORT=1TO50:NEXTT,L 1890 POKEP,0 1900 FORL1=1TO1000:NEXT 1910 FORL=23TO5STEP-1:PRINTLEFT$(W$,L)SPC(AF-2)" ":FORL1=1TO30:NEXTL1,L 1920 POKEP,0 1930 PRINT""SPC(AF-2)"[202][203] [202][203][157][157][157][157][157][209] [146][192][174]":FORL1=1TO500:NEXT:L1=100 1940 FORL=5TO22:PRINTLEFT$(W$,L)SPC(AF-2)" [157][157][157][157][157][209] [146][192][174]":L1=L1+5 1950 POKEP,L1:NEXT 1960 FORL1=240TO255:POKEP,L1:NEXTL1:FORL1=1TO150:NEXTL1:POKEP,0 1970 PRINTLEFT$(W$,22)SPC(AF-4)"[205]MUGYU![206]" 1980 FORL1=1TO1000:NEXT 1990 PRINT"":PRINT:PRINT:PRINT:GOSUB2990 2000 TI$=TF$ 2010 GOTO1430 2020 SO=140 2030 FORL=19TO2STEP-1 2040 PRINTLEFT$(V$,L+1)SPC(PE)C$ 2050 PRINTLEFT$(V$,L)SPC(PE)B$ 2060 POKEP,SO:SO=SO-5 2070 NEXT 2080 POKEP,0 2090 PRINTLEFT$(V$,2)SPC(PE)C$ 2100 PRINTV$SPC(PE)"[215][157][221][157][219]" 2110 BA=BA-1 2120 IFAF<>PETHEN2650 2130 FORT=1TO25:NEXTT 2140 POKEP,50:FORT=1TO25:NEXTT:POKEP,0:FORT=1TO10:NEXTT 2150 PRINT""SPC(AF)X$ 2160 TF$=TI$ 2170 SO=70 2180 FORL=1TO200:NEXT 2190 PRINT""SPC(AF)E$ 2200 F=1+(AF>20)*2 2210 FORL=3TO19 2220 PRINTLEFT$(W$,L-1)SPC(AF-F)E$ 2230 PRINTLEFT$(W$,L)SPC(AF)A$(1) 2240 AF=AF+F:FORT=1TO1 2250 POKEP,SO 2260 SO=SO+5 2270 NEXTT 2280 NEXTL 2290 POKEP,255:FORGH=1TO50:NEXTGH:POKEP,0 2300 IFF>0THENPRINTLEFT$(W$,L-3)SPC(AF-F)" [201][157][157][157] [171][192][157][157][157][157][174] ":GOTO2320 2310 PRINTLEFT$(W$,L-3)SPC(AF)"[213] [157][157][157][192][179] [157][157] [176]" 2320 IFF>0THENPRINTLEFT$(W$,20)SPC(AF-3)"[176][157][189][157][157][176][157][189][157][157][176]":GOTO2340 2330 PRINTLEFT$(W$,20)SPC(AF+3)"[174][157][173][174][157][173][174]" 2340 AF=AF-F 2350 FORL3=15TO18 2360 IFL3>15THENPOKEP,(L3-15)*10+60 2370 AF=AF-F 2380 PRINTLEFT$(W$,L3)SPC(AF)U$ 2390 FORL4=1TO100:NEXT 2400 POKEP,0 2410 FORL4=1TO100:NEXT 2420 PRINTLEFT$(W$,L3)SPC(AF)UE$ 2430 NEXT 2440 PRINTLEFT$(W$,21)SPC(AF-F)U$ 2450 POKEP,100:FORT=1TO100:NEXTT:POKEP,0 2460 FORL3=1TO5 2470 PRINTLEFT$(W$,16)SPC(AF-9)"[205]$&F&'%(AFO!)[206]" 2480 FORL4=1TO20:POKEP,INT(255*RND(1))+1:NEXT 2490 PRINTLEFT$(W$,16)SPC(AF-9)" " 2500 FORL4=1TO20:POKEP,INT(128*RND(1))+128:NEXT 2510 NEXT 2520 POKEP,0 2530 PRINTV$SPC(PE)" [157] [157] " 2540 GOSUB3200 2550 FORL1=1TO5 2560 PRINTV$SPC(PE-3)"[221][157][221][157][173][157] [157]  [145][157] [145][157][189][145][157][221][145][157][221][145][157][157][157][157][157][205]BANZAI![206]" 2570 FORL2=1TO200:NEXT 2580 PRINTV$SPC(PE-3)" [157] [157][176][157][221][157][221][221][145][157][221][145][157][174][145][157] [145][157] [145][157][157][157][157][157] " 2590 FORL2=1TO200:NEXT 2600 NEXT 2610 SC=SC+3:AN=AN+1 2620 TI$=TF$ 2630 A$(1)=LEFT$(A$(1),16)+RIGHT$(STR$(AN),1)+RIGHT$(A$(1),34) 2640 GOTO 1430 2650 REM 2660 PF=PE 2670 BA$=STR$(BA) 2680 TH$=RIGHT$(STR$((60-VAL(TI$))*-(VAL(TI$)<100)),2) 2690 PRINTW$"TIME:"TH$" SCORE:"STR$(SC)" BALLOONS:"BA$; 2700 IFEX=1THENPRINT"[157] EX.PLAY ":GOTO2720 2710 PRINT" " 2720 IFBA=0THEN2750 2730 IFVAL(TI$)>=100THEN2790 2740 GOTO1490 2750 PRINTLEFT$(W$,7)TAB(10)"FUUSENGA NAKUNATTA":FORL=1TO1500:NEXT 2760 PRINT:PRINTTAB(16)"AFO!" 2770 FORL=1TO1000:NEXT 2780 GOTO2870 2790 PRINTW$"0"; 2800 PRINTLEFT$(W$,7)TAB(11)"JIKANGA NAKUNATTA":FORL=1TO1500:NEXT 2810 IFSC<5OREX=1THEN2760 2820 PRINT:PRINT:PRINTTAB(6)"E X T E N D E D P L A Y" 2830 FORL=1TO2000:NEXT 2840 TI$="000030" 2850 EX=1 2860 GOTO1430 2870 PRINT:PRINTTAB(10)"ANATA NO TOKUTEN:"SC 2880 PRINTLEFT$(UD$,25) " ":GOSUB835:RETURN 2890 GETC$:IFC$="S"THENRUN 2900 GOTO2890 2910 PRINT"[147]"; 2920 PRINT" [205] [176][192][192][178][192][192][174] [205] 2930 [153]"TANTANTAN (null)(null)(null) (null) (null) (null) ORTAN^ (null)TO(null) 2940 PRINT" [192] [192][219][192] [221][160][160][221] [221] [221][205][221] [214] 2950 [153]" TAN (null)(null)(null)(null) TOTO -TANTAN>TANTAN< (null)TAN(null) (null) (null) 2960 PRINT"[176][192][174][167] [206][167] [205] [221] [221] [221][205][221] 2970 [153]"(null) (null)THEN THEN THEN THEN (null) (null) OR==^ 2980 PRINT"[173][192][189][214][164][164][164][164] [205][206] [205] [221] [221] [192][177][177][177][177][192] 2990 [153] 3000 [153] 3010 [153]" ORTANTAN^ ORTANTANTANTAN (null)TAB(TAB((null) 3020 PRINT" [194] [200] [221] [167] [165] 3030 [153]" (null) FN (null) THEN FN 3040 PRINT" [167] [199] [221] [167] [165] 3050 [153]" -TANTANTANTAN< -TANTANTAN THEN FN 3060 PRINT" [199] [200] [221] [167] [165] 3070 [153]" (null) (null) (null) THEN FN 3080 PRINT" [165] [167] [221] [167] [165] 3090 [153]" THEN FN (null) (null)TOTO(null) 3100 FORL=1TO2000:NEXT 3110 RETURN 3120 REM 3130 PRINT" [164][186][164][164] 3140 [153]" FN (null) (null) SQRTOTOTO (null) (null)(null) (null) 3150 PRINT"[206] [208][171][178][192] [207][208][206][163][208] [167] [205] [206][163][208] [206] [205] 3160 [153]"FN (null)TAN(null)TANOR^(null)(null) (null)THEN THENOR(null)^ THEN TANTANTAN (null) THEN 3170 PRINT"[205] [206] '[205][173][189][163][163] [206] [206][173][189] [164][206] [204][164][164][186] [206] 3180 [129]LL[178]1[164]2000:[130] 3190 [142] 3200 [153]V$[166]PE)O$ 3210 [139]F[177]0[167]3480 3220 [129]L1[178]PE[171]2[164]PE[171]4[169][171]2 3230 [153][200](W$,19)[166]L1)WN$ 3240 [129]L2[178]1[164]100:[130] 3250 [153][200](W$,19)[166]L1)WE$ 3260 [153][200](W$,19)[166]L1[171]1)VL$ 3270 [129]L2[178]1[164]100:[130] 3280 [153][200](W$,19)[166]L1[171]1)WE$ 3290 [130] 3300 [153][200](W$,19)[166]L1[171]1)VL$ 3310 PE[178]L1[170]1 3320 [129]L2[178]1[164]500:[130] 3330 [153]V$[166]L1[171]2)"RNDCMD(null)CMD/CMD " 3340 [129]L2[178]50[164]100:[151]P,L2:[130] 3350 [153]V$[166]L1[171]2)" CMD CMD " 3360 [153]V$[166]L1[171]4)"*(null)(null)" 3370 [129]L2[178]101[164]150:[151]P,L2:[130] 3380 [153]V$[166]L1[171]4)"   " 3390 [153]V$[166]L1[171]5)"*TANTANTAN" 3400 [129]L2[178]1[164]200:[130] 3410 [153]V$[166]L1[171]6)" *TANCMDCMDCMD(null)RIGHT$" 3420 [151]P,255:[129]L2[178]1[164]200:[130] 3430 [153]V$[166]L1[171]12)"ONON(null)$25(MUGYU)(null)" 3440 [151]P,0 3450 [129]L2[178]1[164]1000:[130] 3460 [153]V$[166]L1[171]6)" " 3470 [142] 3480 [129]L1[178]PE[171]2[164]PE[170]4[169]2 3490 [153][200](W$,19)[166]L1)WM$ 3500 [129]L2[178]1[164]100:[130] 3510 [153][200](W$,19)[166]L1)WE$ 3520 [153][200](W$,19)[166]L1[170]1)VR$ 3530 [129]L2[178]1[164]100:[130] 3540 [153][200](W$,19)[166]L1[170]1)WE$ 3550 [130] 3560 [153][200](W$,19)[166]L1[170]1)VR$ 3570 PE[178]L1[170]3 3580 [153]V$[166]L1[170]2)"*CMD(null)CMDEXPCMD " 3590 [129]L2[178]100[164]150:[151]P,L2:[130] 3600 [153]V$[166]L1[170]2)" CMD CMD " 3610 [153]V$[166]L1[170]2)"(null)ON(null)ONRND" 3620 [129]L2[178]151[164]200:[151]P,L2:[130] 3630 [153]V$[166]L1[170]2)" ON ON " 3640 [153]V$[166]L1[170]2)"TANTANTANRND" 3650 [151]P,255 3660 [153]V$[166]L1[170]3)"TANRND CMDCMDCMD(null)RIGHT$" 3670 [153]V$[166]L1[170]2)"ONON(null)$32(MUGYO)(null)" 3680 [129]L2[178]1[164]100:[130]:[151]P,0 3690 [129]L2[178]1[164]1000:[130] 3700 [153]V$[166]L1[170]3)"  ONON CMD " 3710 [153]V$[166]L1[170]2)"  " 3720 [142]